home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.07 Jul 91 / Multi DA Source / Multi DA.r < prev    next >
Encoding:
Text File  |  1990-03-22  |  2.3 KB  |  149 lines  |  [TEXT/MPS ]
  1. /*
  2.     File Multi DA.r -- Rez compatible source
  3.     for the resources used by the example DA
  4.     Copyright 1989, Lincoln D. Stein
  5. */
  6.  
  7. #include    "types.r"
  8.  
  9. resource 'MENU' (-16000) {
  10.     0,
  11.     textMenuProc,
  12.     0x7FFFFFFD,
  13.     enabled,
  14.     apple,
  15.     {    /* array: 2 elements */
  16.         /* [1] */
  17.         "About MultiDA…", noIcon, noKey, noMark, plain;
  18.         /* [2] */
  19.         "-", noIcon, noKey, noMark, plain
  20.     }
  21. };
  22.  
  23. resource 'MENU' (-15999) {
  24.     0,
  25.     textMenuProc,
  26.     0x7FFFFFFB,
  27.     enabled,
  28.     "DA-File",
  29.     {    /* array: 4 elements */
  30.         /* [1] */
  31.         "New Window", noIcon, "N", noMark, plain;
  32.         /* [2] */
  33.         "Close", noIcon, "W", noMark, plain;
  34.         /* [3] */
  35.         "-", noIcon, noKey, noMark, plain;
  36.         /* [4] */
  37.         "Quit", noIcon, "Q", noMark, plain
  38.     }
  39. };
  40.  
  41. resource 'MENU' (-15998) {
  42.     0,
  43.     textMenuProc,
  44.     0x7FFFFFFC,
  45.     enabled,
  46.     "DA-Edit",
  47.     {    /* array: 6 elements */
  48.         /* [1] */
  49.         "Undo", noIcon, "Z", noMark, plain;
  50.         /* [2] */
  51.         "-", noIcon, noKey, noMark, plain;
  52.         /* [3] */
  53.         "Cut", noIcon, "X", noMark, plain;
  54.         /* [4] */
  55.         "Copy", noIcon, "C", noMark, plain;
  56.         /* [5] */
  57.         "Paste", noIcon, "V", noMark, plain;
  58.         /* [6] */
  59.         "Clear", noIcon, noKey, noMark, plain
  60.     }
  61. };
  62.  
  63. resource 'MENU' (-15997) {
  64.     0,
  65.     textMenuProc,
  66.     allEnabled,
  67.     enabled,
  68.     "DA-Windows",
  69.     {    /* array: 2 elements */
  70.         /* [1] */
  71.         "Clean Up", noIcon, noKey, noMark, plain;
  72.         /* [2] */
  73.         "Beep", noIcon, noKey, noMark, plain
  74.     }
  75. };
  76.  
  77. resource 'DITL' (-16000, purgeable) {
  78.     {    /* array DITLarray: 4 elements */
  79.         /* [1] */
  80.         {96, 16, 120, 72},
  81.         Button {
  82.             enabled,
  83.             "New"
  84.         };
  85.         /* [2] */
  86.         {96, 80, 120, 144},
  87.         Button {
  88.             enabled,
  89.             "Erase"
  90.         };
  91.         /* [3] */
  92.         {32, 8, 88, 152},
  93.         EditText {
  94.             disabled,
  95.             ""
  96.         };
  97.         /* [4] */
  98.         {7, 7, 23, 159},
  99.         StaticText {
  100.             disabled,
  101.             "Type some text here…"
  102.         }
  103.     }
  104. };
  105.  
  106. resource 'DITL' (-15999, purgeable) {
  107.     {    /* array DITLarray: 2 elements */
  108.         /* [1] */
  109.         {81, 90, 101, 150},
  110.         Button {
  111.             enabled,
  112.             "OK"
  113.         };
  114.         /* [2] */
  115.         {7, 14, 70, 237},
  116.         StaticText {
  117.             disabled,
  118.             "Written by Lincoln Stein in Think Pascal"
  119.             "™ as an example program for MacTutor."
  120.         }
  121.     }
  122. };
  123.  
  124. resource 'DLOG' (-16000, purgeable) {
  125.     {68, 176, 197, 336},
  126.     rDocProc,
  127.     invisible,
  128.     goAway,
  129.     0x0,
  130.     -16000,
  131.     "Multi DA"
  132. };
  133.  
  134. resource 'ALRT' (-16000, purgeable) {
  135.     {58, 122, 176, 370},
  136.     -15999,
  137.     {    /* array: 4 elements */
  138.         /* [1] */
  139.         OK, visible, silent;
  140.         /* [2] */
  141.         OK, visible, silent;
  142.         /* [3] */
  143.         OK, visible, silent;
  144.         /* [4] */
  145.         OK, visible, silent
  146.     }
  147. };
  148.  
  149.